#!/usr/bin/perl

# ---------- Init variables -------
#my $version = "0.0001";
# ---------- external readable parameters -------
## Functions
##-------------------------------------------------------
#
# stict syntax checking.
require Exporter;
use SIM_settings;
use SIM_cgiSettings;
use SIM_base;
use SIM_cgi;
use CGI qw(param);
use SIM_rrd;
use strict;

my $tool = $ARGV[0];
my $action = $ARGV[1];
my $location = $ARGV[2];
my $option1 = $ARGV[3];
my $option2 = $ARGV[4];
my $option3 = $ARGV[5];
my $option4 = $ARGV[6];

if ( $location eq "none" ) {
  $location = "";
}

my $baseUrl = "$httpScriptName?$tool";

# ----------------- subs ---------------------

sub displayTmp {
  printDebug(1, "/tmp, nldltfwsmg1s6-vnt.outside-vnt.hcoctets2611, day, Load on nldltfwsmg1s6-vnt outside-VNT, bits p/s, Custom info
, In traffic bps;Out traffic bps, 640, MAX");
  my $graph = &displayRrdGraph( "/tmp", "nldltfwsmg1s6-vnt.outside-vnt.hcoctets2611", "day", "Load on nldltfwsmg1s6-vnt outside-VNT", "bits p/s", "Custom info", "In traffic bps;Out traffic bps", "640", "MAX", 8);
  print("$graph");
  my $graph = &displayRrdGraph( "/tmp", "nldltfwsmg1s6-vnt.outside-vnt.hcoctets3110", "1318366613", "Load on nldltfwsmg1s6-vnt outside-VNT", "bits p/s", "Custom info", "In traffic bps;Out traffic bps", "640", "MAX", 8);
  print("$graph");
}

# ----------------- main ---------------------
# menu stuff
#&printMainMenu("line");
print("</TR></TABLE><CENTER>");

if ( $action eq "dosomething" ) {
  print("something");
} else {
  print("<H2>displayTmp</H2>");
  &displayTmp;
}
